<script>on MouseUpglobal gOtherCdList6get doubleClick()if gOtherCdList6 = "" then exit MouseUpadd 1 to line 1 of gOtherCdList6LinkToCard Line (line 1 of gOtherCdList6) of gOtherCdList6,"none"unlock screen with wipe leftEnd MouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>409</left>
<top>315</top>
<right>427</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on MouseUpglobal gOtherCdList6get doubleClick()if gOtherCdList6 = "" then exit MouseUpsubtract 1 from line 1 of gOtherCdList6LinkToCard Line (line 1 of gOtherCdList6) of gOtherCdList6,"none"unlock screen with wipe rightEnd MouseUp</script>
<script>on MouseUpget DoubleClick()put fld "PresPath" into dataput "" into theListput number of lines of data into numLinesrepeat with z = 1 to numLinesspinCursorput item 1 of line z of data into thisLineput z & "." && removePath(thisLine) & return after theListend repeatif number of lines of theList > 1 thenput ListSelect ("D",theList,"Select a file to view:")¬into theFileif theFile = "" then exit MouseUpgo this cdelse put line 1 of data into theFileshowPres theFileEnd MouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>234</left>
<top>315</top>
<right>277</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Script</name>
<script>on MouseUpget DoubleClick()put fld "ScriptPath" into dataput "" into theListrepeat with z = 1 to number of lines of dataspinCursorput item 1 of line z of data into thisLineput z & "." && RemovePath(thisLine) & return after theListend repeatif number of lines of theList > 1 thenput ListSelect ("D",theList,"Select a file to view:")¬into theFileif theFile = "" then exit MouseUpgo this cdelse put line 1 of data into theFileshowPres theFileEnd MouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>285</left>
<top>315</top>
<right>328</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DownLoad</name>
<script>on MouseUpglobal gTheError,gCDVolume6SpinCursorput "" into gTheErrorput "" into theFilesif fld "PresPath" is not "" then put fld "PresPath" into theFilesif fld "ScriptPath" is not "" then put return & fld "ScriptPath" after theFilesif number of lines of theFiles = 1 and last char of item 1 of theFiles is not ":" thenput "This file is" into promptelse put "These files are" into promptput pathWay(gCDVolume6&item 1 of line 1 of theFiles) into copyPathput folderSize(copyPath) into reqSpaceif reqSpace contains "Error" thenanswer "Unable to copy files."& return & reqSpaceexit MouseUpend ifanswer prompt && reqSpace div 1024&"K and may take a while to copy." with "Cancel" or "Continue"go this cdif it = "Cancel" then exit MouseUpSpinCursorput folderPath("This Level","Select a level to place the files:") into thePathgo this cdif thePath = "" or last char of thePath is not ":" then exit MouseUpput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif gTheError is not empty thenanswer "Sorry, unable to copy files: " & return & gTheErrorput "" into gTheErrorexit mouseupend ifif spaceAvail < reqSpace*1.05 thendelete last char of theVolumebeepanswer "There is not enough space on the volume “"& theVolume &"” to copy" & return & "“" &¬fld "Title" & "”." & return & "Space required : "& reqSpace div 1024 & "K" & return &¬"Space available : " & spaceAvail div 1024 & "K" with "Cancel"exit MouseUpend ifSpinCursorput gCDVolume6&pathway(line 1 of fld "PresPath") into sourcePathif last char of sourcePath = ":" thenput lastFolder(sourcePath) after thePathend ifSpinCursorif length of thePath+31 > 250 thenbeepanswer "You specified a path too far down (more than 250 chars)."& return &¬"If you wish to install this, please try again." with "Cancel"exit MouseUpend ifprompt 1,"Copying File(s)...Please wait..."CopyFolder sourcePath,thePathput the result into OsErrprompt 3if OsErr contains "Error" thenanswer "Sorry, unable to copy files: " & return & OsErrexit mouseupend ifSpinCursorEnd MouseUpfunction lastFolder thePathput number of chars of thePath into PathLengthrepeat with i = PathLength down to 1if char i of thePath = ":" then exit repeatend repeatsubtract 1 from irepeat with z = i down to 1if char z of thePath = ":" then exit repeatend repeatreturn char z+1 to i of thePath &":"end lastFolder</script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>74</top>
<right>512</right>
<bottom>105</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ScriptPath</name>
<script>--Path&File (No Vol),type,Bit depths,Boolean (GS),CPU,Mem Reqon MouseUpglobal gCDVolume6put the OptionKey is up into addFolderput (the CommandKey is down or me = "") into checkTitleif the ShiftKey is down or checkTitle thenput 0 into exactelse put 1 into exactput gCDVolume6 into volput word 2 of the clickLine into theLineif line theLine of me = "" and not checkTitle then exit MouseUpselect line theLine of meput item 1 of line theLine of me into fif char 1 of f is not "6" and addFolder and¬":" is in line theLine of me thendelete char (offset(":",f)) to length of f of fput ":" before felse put "" into fput vol & f into maybeif checkTitle thenput fld "Title" into theFileelse put removePath(item 1 of line theLine of me) into theFileput item 2 of line theLIne of me into theTypeput FindFile(maybe,theFile,"",exact) into fileListput fileList into fileNamerepeat with z = 1 to number of lines of fileNameset cursor to busyput line z of fileName into fdelete char 1 to (offset(":",f)) of fdelete char 1 to (offset(":",f)) of fput f into line z of fileNameend repeatget XScrollBox(1,"Select a file to view:",fileName)go this cdif it = "" then exit MouseUpput line (item 1 of it) of fileList into theFiledelete char 1 to (offset(":",theFile)) of theFileput theFile into item 1 of line theLine of meend MouseUpon MouseUpput "Ref. & Pres. Lib.v5.0:" into volput word 2 of the clickLine into theLineput vol & pathWay(item 1 of line theLine of me) into maybestdFile maybeput fileName() into fileNameif fileName is not "" thenput fileName into item 1 of line theLine of meend ifend MouseUp</script>
</part>
<part>
<id>34</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>181</top>
<right>512</right>
<bottom>243</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PresPath</name>
<script></script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>231</left>
<top>311</top>
<right>282</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Script Hider</name>
<script></script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>178</left>
<top>311</top>
<right>229</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>View Hider</name>
<script></script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>407</left>
<top>313</top>
<right>432</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>128</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev Hide</name>
<script></script>
</part>
<part>
<id>66</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>313</top>
<right>456</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>129</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Hide</name>
<script></script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>280</left>
<top>311</top>
<right>331</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy Hider</name>
<script></script>
</part>
<part>
<id>84</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>180</left>
<top>253</top>
<right>496</right>
<bottom>274</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Aplgaram</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Application Used</name>
<script></script>
</part>
<part>
<id>85</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>285</left>
<top>271</top>
<right>496</right>
<bottom>291</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Aplgaram</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Depth Supported</name>
<script></script>
</part>
<name>Pres</name>
<script>on findCreatorlockMsgsrepeat with n = 1 to the number of cds in this bgset cursor to busygo card n of this bgput item 2 of fld "prespath" & return into thisOneif thisOne is not in theList thenput thisOne after theListend ifif fld "scriptPath" ≠ "" thenput item 2 of fld "scriptpath" & return into thisOneif thisOne is not in theList thenput thisOne after theListend ifend ifend repeatsort theListprint theListend findCreatoron openCardglobal gNoLaunch6,gCDVolume6,gOtherCdList6,gGlobalInit6spinCursorif gGlobalInit6 = "" then exit openCardif gNoLaunch6 contains "True" thenif gNoLaunch6 contains "Volume" thenspinCursorif (gCDVolume6 is in VolumeList()) then put false into gNoLaunch6end ifend ifput ((gNoLaunch6 contains true) or (fld "PresPath" = "" and¬fld "ScriptPath" = "")) into hideAllBtnsspinCursorif hideAllBtns thenshow bg btn "View Hider"show bg btn "Copy Hider"show bg btn "Script Hider"elseset visible of bg btn "View Hider" to (fld "PresPath" = "")set visible of bg btn "Script Hider" to (fld "ScriptPath" = "")hide bg btn "Copy Hider"end ifspinCursorif number of lines of gOtherCdList6 = 2 or gOtherCdList6 = "" thenshow bg btn "Next Hide"show bg btn "Prev Hide"elseset visible of bg btn "Next Hide" to (line 1 of gOtherCdList6 = number of lines of gOtherCdList6)set visible of bg btn "Prev Hide" to (line 1 of gOtherCdList6 = 2)end ifend openCard</script>